home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tn.d64 / basic fun.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  58 lines
  1. 10 REM  ***************************
  2. 20 REM  ***  ERROR FUN  (BASIC) ***
  3. 30 REM  ***************************
  4. 40 REM
  5. 50 REM    KENT M. BRIDWELL (1985)
  6. 60 REM
  7. 70 REM
  8. 80 Q$=CHR$(34):Z$=CHR$(0)
  9. 90 POKE53280,0:POKE53281,0:PRINT"[147]"TAB(9)"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  10. 100 PRINTTAB(9)"[221][155]ERROR FUN (BASIC)[156][221]":PRINTTAB(9)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  11. 110 PRINT"[154]PLEASE STANDBY..."
  12. 120 FORI=40960TO41373:POKEI,PEEK(I):NEXT
  13. 130 PRINT"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  14. 140 PRINT"  COPYING LOROM TO LORAM  [146]"
  15. 150 FORI=41374TO41767:READA:POKEI,A:NEXT
  16. 160 PRINT"[129] NEW CHARACTERS INSTALLED [146]"
  17. 170 FORI=41768TO49151:POKEI,PEEK(I):NEXT
  18. 180 READ A,B:POKE41830,A:POKE41831,B:REM- OK
  19. 190 FORI=41834TO41839:READ A:POKEI,A:NEXT:REM- ERROR
  20. 200 READ A,B:POKE41842,A:POKE41843,B:REM- IN
  21. 210 FORI=41848TO41852:READ A:POKEI,A:NEXT:REM- READY
  22. 220 FORI=41858TO41863:READ A:POKEI,A:NEXT:REM- BREAK
  23. 230 PRINT"[152]   REST OF LOROM MOVED!   [146]"
  24. 240 FORT=1TO2000:NEXT
  25. 250 PRINT"[158] PRESS <RETURN> TO ACTIVATE THE SWITCH":POKE198,0
  26. 260 GETK$:IFK$<>CHR$(13)THEN260
  27. 270 POKE1,PEEK(1)AND254
  28. 280 PRINT"[147][153]>> ERROR FUN NOW ACTIVATED <<[154]"
  29. 290 XXX:REM- ERROR
  30. 300 REM ---- ERROR MESSAGE DATA ----
  31. 310 DATA80,72,73,76,69,32,79,86,69,82,76,79,65,196,70,76,89
  32. 320 DATA76,32,79,80,69,206,83,72,85,84,32,84,72,69,32,68,79
  33. 330 DATA79,210,78,79,32,70,73,78,68,39,77,32,70,73,76,197,87
  34. 340 DATA72,69,82,69,83,32,84,72,69,32,71,65,68,71,69,84,191
  35. 350 DATA87,82,79,78,71,32,87,65,89,32,70,73,76,197,87,82,79
  36. 360 DATA78,71,32,87,65,89,32,80,72,73,76,197,80,72,73,76,69
  37. 370 DATA32,71,79,84,84,65,32,78,65,77,69,191,65,82,82,69,83
  38. 380 DATA84,32,66,79,79,75,73,78,71,32,78,85,77,66,69,210,32
  39. 390 DATA66,65,68,32,76,79,79,80,32,76,79,85,73,69,161,83,89
  40. 400 DATA78,70,85,204,71,79,84,32,76,79,83,84,32,87,73,84,72
  41. 410 DATA79,85,84,32,73,84,161,32,32,68,65,84,39,83,32,65,76
  42. 420 DATA204,73,76,76,69,71,65,76,32,71,79,79,68,73,69,83,161
  43. 430 DATA70,65,82,32,79,85,84,161,73,32,70,79,82,71,79,84,32
  44. 440 DATA72,85,72,191,83,65,89,32,87,72,65,84,44,32,87,73,76
  45. 450 DATA76,73,69,191,78,84,72,32,68,73,77,69,78,83,73,79,206
  46. 460 DATA65,82,82,65,89,32,70,79,82,32,89,79,213,68,73,86,73
  47. 470 DATA68,69,68,32,87,69,32,70,65,76,76,161,67,65,78,39,84
  48. 480 DATA32,68,79,32,84,72,65,84,161,32,78,79,84,32,77,89,32
  49. 490 DATA84,89,80,69,161,83,84,82,73,78,71,32,77,69,32,65,76
  50. 500 DATA79,78,199,68,65,84,39,83,32,66,65,196,67,79,77,80,76
  51. 510 DATA73,67,65,84,69,68,32,66,76,85,78,68,69,210,83,84,85
  52. 520 DATA67,75,32,73,78,32,68,39,77,85,196,82,69,65,76,76,89
  53. 530 DATA32,77,69,83,83,69,68,32,85,208,78,79,71,79,79,196,76
  54. 540 DATA79,85,196,65,72,66,79,79,66,79,79,65,84,82,79,87,68
  55. 550 DATA89,66,85,83,84,69,68
  56. 59999 END
  57. 60000 OPEN15,8,15,"S0:BASIC FUN":CLOSE15:SAVE"0:BASIC FUN",8
  58.